home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Games Collection 1 / software vault.zip / software vault / CDR10 / SPX20.ZIP / SPX_INT.ZIP / SPX_EFF.INT < prev    next >
Text File  |  1993-09-14  |  1KB  |  41 lines
  1. Unit spx_eff;
  2.  
  3. {$X+,O+ }
  4. { SPX Library Version 2.0  Copyright 1993 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. uses spx_vga;
  9.  
  10. const
  11.   wmax = 100;
  12.  
  13. type
  14.   usercp       = procedure (f,t,yline:longint);
  15.   Pcycle       = ^Tcycle;
  16.   Tcycle       = object
  17.                    cyc_next,
  18.                    from_x,from_y,
  19.                    cyc_x,cyc_y,
  20.                    cyc_width,
  21.                    cyc_height,
  22.                    cycley,
  23.                    cyclex,fr_size,
  24.                    am_size         : word;
  25.                    cycle_cos       : array[0..wmax-1] of integer;
  26.                    constructor init(freq,size:integer);
  27.                    destructor done;virtual;
  28.                    procedure changewave(freq,size:integer);virtual;
  29.                    procedure docycle(from,too,mode:byte); virtual;
  30.                    procedure cycle_move; virtual;
  31.                    procedure adjustcyclenext; virtual;
  32.                  end;
  33.  
  34. var
  35.   usercycle : usercp;
  36.  
  37. procedure linemove(s,d:longint;cnt:word);
  38. procedure wordmove(var source,dest;cnt:word);
  39. procedure cycleline(f,t:longint;cyclex,cycle_width:word);
  40.  
  41.